--[[ 编码: JX-105-11 名称: 出库波次-创建空料箱出库作业 作者:HAN 日期: 2025-1-29 级别:固定 (说明本段代码在项目中不太会变化) 函数: CreateOutOperation 功能: -- 适用于行、页面按钮调用 -- 获取【出库波次】中的配盘数据对象, -- 每个配盘对象创建一个{货品出库}作业,容器加出库锁 更改记录: --]] wms_wh = require( "wms_wh" ) jx_base= require( "jx_base" ) function CreateOutOperation( strLuaDEID ) local nRet, strRetInfo, n, m local data_json, obj_attrs nRet, data_json = m3.GetSysDataJson( strLuaDEID ) if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), data_json ) end local strCondition, strUpdateSql local distribution_objs, distribution for n = 1, #data_json do obj_attrs = m3.KeyValueAttrsToObjAttr( data_json[1].attrs ) strCondition = "S_BS_NO = '"..obj_attrs.S_WAVE_NO.."'" nRet, distribution_objs = m3.QueryDataObject(strLuaDEID, "Distribution_CNTR", strCondition, "" ) if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1),"QueryDataObject失败!"..distribution_objs ) end -- 根据每个配盘生成出库作业 for m = 1, #distribution_objs do distribution = m3.KeyValueAttrsToObjAttr(distribution_objs[m].attrs) nRet, strRetInfo = jx_base.Create_Distribution_OutOperation ( strLuaDEID, distribution ) if ( nRet ~= 0 ) then mobox.stopProgram( strLuaDEID, strRetInfo ) return end end -- 更新出库波次的状态 N_B_STATE = 3 表示已经创建作业 strUpdateSql = "N_B_STATE = 3" strCondition = "S_WAVE_NO = '"..obj_attrs.S_WAVE_NO.."'" nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Wave", strCondition, strUpdateSql ) if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【出库波次】状态失败!"..strRetInfo ) end -- 更新出库单状态为 作业中3 nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Order", strCondition, strUpdateSql ) if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【出库单】状态失败!"..strRetInfo ) end end local action = { { action_type = "refresh", value = "" } } nRet, strRetInfo = mobox.setAction(strLuaDEID, lua.table2str( action )) if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction错误: "..strRetInfo) end end